COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C  MPRNT.F4********** DRAWS MUSIC ON THE PLOTTER OR XGP **********
C00011 ENDMK
C⊗;
C  MPRNT.F4********** DRAWS MUSIC ON THE PLOTTER OR XGP **********
C *** READS DATA FROM DSK FOR VARIOUS THINGS.

	COMMON /DL/IXRX,SAVER,NAME /FRMT/F78F(1),FA1(1),FA5(1),ASK
	COMMON R2,JA,CENTR,J2,RJQ(20),JQ(20)
C					   ↓↓↓↓↓ V IS FOR READIN ONLY
	COMMON  /XRN/RN(3000),V(1000) /ALF/INP(72),ML
	1 /STF/RSTFAC(-3/4),RSTJ2  /POSI/STFF(-3/4),JJ2,POS
	1 /PTR/PWDS(250),ITEM,L,I,M /DPY/GO,TOP,BOT /FONT/JFONT
	1/PLTR/PLT,RHT,DIS

	CALL SEGFIX
C  TO ENABLE MULTIPLE USE OF UPPER SEGMENT (TVR)
	CALL MPRFAI
	END    

C***** SOME TYPEOUT AND ACCEPT ROUTINES *******

	SUBROUTINE RESET(K)
	COMMON /FRMT/F78F(1),FA1(1),FA5(1),ASK
	DATA FA1/'(A1)'/
23	TYPE 21
21	FORMAT(' RESET BOTTOM? '$)
	ACCEPT FA1,K
	END

	SUBROUTINE ENDIT(A,ITMS)
	TYPE 300,A,ITMS
	CALL PLOT(0,0,99)
C  THE END OF THE DATA
300	FORMAT(F7.2,' INCHES',I,' ITEMS')
C  THE END OF THE DATA
	END

	SUBROUTINE ILLEGL(JA)
	TYPE 160,JA
160	FORMAT(' ILLEGAL STAFF# ',I4)
	END

	SUBROUTINE UNKNWN(JA)
	TYPE 5700,JA
5700	FORMAT(' UNKNOWN CODE=',I3)
C TRAP FOR UNKNOWN CODE #S (SUCH AS 99 - FOR "NO KSIG".
	END

	SUBROUTINE TOOMCH(K)
	TYPE 4202,K
	STOP
4202	FORMAT(' ***** TOO MUCH DATA ',I4,'/2000')
	END